home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Resources / System / BoingBag1 / Contributions / InstallerNG / Install < prev    next >
Text File  |  1999-11-10  |  12KB  |  313 lines
  1.  
  2. /*********************************************************************************************
  3.  *
  4.  * installation script for the InstallerNG $VER: InstallerNG-Script 1.2 (08.10.99)
  5.  *
  6.  * note, that this script makes use of seveal new features of the InstallerNG
  7.  * like multilined comments and enhanced pattern-match functionality of the DATABASE
  8.  * function
  9.  *
  10.  *********************************************************************************************/
  11.  
  12. ; -----------------------------------------------------------------------------
  13. ; some default settings
  14.  
  15. (set @app-name     "Installer NG"
  16.      @default-dest "C:"
  17. )
  18.  
  19. ; -----------------------------------------------------------------------------
  20. ; initialize the sound
  21.  
  22. (showmedia "#yeah" "media/yeah.snd" "upper_left" "none" 0)
  23.  
  24. ; -----------------------------------------------------------------------------
  25. ; localized strings; by default, everything is english, but if possible,
  26. ; overwrite the english strings by user-preferred ones
  27.  
  28. (if true
  29.  
  30.     (
  31.       (set #msg_welcome (cat "Welcome to the Installation of the InstallerNG\n\n"
  32.                              "The InstallerNG wants to be a substitution of\n"
  33.                              "the original Installer by C=\n"
  34.                              "It offers many new features, looks much better and is\n"
  35.                              "smaller than the C= Installer"
  36.                              "\n\n\n\n.oO please turn on the Amiga sound Oo."
  37.                         )
  38.       )
  39.       (set #msg_askfile_prompt "Where is the default Installer located?")
  40.       (set #msg_askfile_help (cat "Please select the original Installer by C=. "
  41.                                   "This script will make a backup copy of the "
  42.                                   "Installer and then, it will replace the "
  43.                                   "original by the new InstallerNG."
  44.                              )
  45.       )
  46.       (set #msg_copylib_prompt "Now copying the InstallerNG to \"%s\"")
  47.       (set #msg_copylib_help "...")
  48.  
  49.       (set #msg_catalog_prompt "Which catalog-file do you want to install?")
  50.       (set #msg_catalog_help "...")
  51.  
  52.       (set #msg_done (cat "Done!\n"
  53.                           "The InstallerNG replaced the original Installer\n"
  54.                           "and made a copy of the old one in \"%s\".\n\n"
  55.                           "Have fun with the new Installer and its features"
  56.                      )
  57.       )
  58.  
  59.       (set #msg_rename_prompt "Now renaming the C= installer")
  60.       (set #msg_rename_help "...")
  61.  
  62.       (set #msg_copytools_prompt "Which additional tools you want to install? (see Help)")
  63.       (set #msg_copytools_help (cat "CloseScreenPatch\nA patch, which avoids screen closing, while a window "
  64.                                     "is still open on that screen and helps you to save memory. Just add "
  65.                                     "'run <>nil: c:closescreenpatch' to the end of your 's:user-startup' file"
  66.                                     "\n\nGetSum\n"
  67.                                     "Calculates the checksum of any file, like the Installer does. "
  68.                                     "Usage: type 'getsum <file>' in your shell"
  69.                                )
  70.       )
  71.  
  72.       (set #msg_tooltypes_prompt "Which Tooltypes you want to preset?")
  73.       (set #msg_tooltypes_help "...")
  74.  
  75.       (set #msg_askchoice_prompt "Which GUI do you want to use?")
  76.       (set #msg_askchoice_help "...")
  77.  
  78.       (set #message_letsgo "Installation prepared. Ready to proceed?")
  79.  
  80.       (set #working_text "Now starting to install the new InstallerNG by Jens Tröger")
  81.     )
  82. )
  83.  
  84. (if (= @language "deutsch")
  85.  
  86.     (
  87.       (set #msg_welcome (cat "Willkommen zur Installation des InstallerNG\n\n"
  88.                              "Der InstallerNG soll ein Ersatz für den\n"
  89.                              "originalen Installer von C= sein\n"
  90.                              "Er bietet viele neue Eigenschaften, sieht viel besser aus\n"
  91.                              "und ist kleiner als der C= Installer"
  92.                              "\n\n\n\n.oO Bitte den Amiga-Ton anschalten Oo."
  93.                         )
  94.       )
  95.  
  96.       (set #msg_askfile_prompt "Wo befindet sich der Installer?")
  97.       (set #msg_askfile_help (cat "Bitte wählen Sie den originalen Installer von C=. "
  98.                                   "Dieses Skript macht eine Kopie des originalen "
  99.                                   "Installers und wird danach den originalen durch "
  100.                                   "den neuen InstallerNG ersetzen."
  101.                              )
  102.       )
  103.  
  104.       (set #msg_copylib_prompt "Kopiere jetzt den InstallerNG nach \"%s\"")
  105.       (set #msg_copylib_help "...")
  106.  
  107.       (set #msg_catalog_prompt "Zu welcher Sprache möchten Sie einen Katalog installieren?")
  108.       (set #msg_catalog_help (cat "Wählen Sie hier aus, welche Katalog Datei Sie installieren möchten. "
  109.                                   "Sinnigerweise sollten Sie 'deutsch' wählen."
  110.                              )
  111.       )
  112.  
  113.       (set #msg_done (cat "Fertig!\n"
  114.                           "Der InstallerNG hat Ihren originalen Installer\n"
  115.                           "ersetzt und eine Kopie des alten als \"%s\" erzeugt.\n\n"
  116.                           "Viel Spaß mit dem neuen Installer und seinen Möglichkeiten"
  117.                      )
  118.       )
  119.  
  120.       (set #msg_rename_prompt "Benenne nun den C= Installer um")
  121.       (set #msg_rename_help "...")
  122.  
  123.       (set #msg_copytools_prompt "Welche zusätzlichen Programme wollen Sie installieren?")
  124.       (set #msg_copytools_help (cat "CloseScreenPatch\nEin Patch, welcher verhindert, daß ein Screen geschlossen "
  125.                                     "wird, auf dem noch Fenster geöffnet sind und somit 'Speicherleichen' "
  126.                                     "vorbeugt. Einfach 'run <>nil: c:closescreenpatch' in 's:user-startup' einfügen"
  127.                                     "\n\nGetSum\n"
  128.                                     "Berechnet die Checksumme einer Datei, wie sie auch der Installer berechnet. "
  129.                                     "Nutzung: 'getsum <file>' in der Shell eingeben"
  130.                                )
  131.       )
  132.  
  133.       (set #msg_tooltypes_prompt "Welche Tooltypes möchten Sie voreinstellen? (siehe Hilfe)")
  134.       (set #msg_tooltypes_help "...")
  135.  
  136.       (set #msg_askchoice_prompt "Welche Oberfläche möchten Sie verwenden?")
  137.       (set #msg_askchoice_help "...")
  138.  
  139.       (set #message_letsgo "Installation vorbereitet. Soll nun weitergemacht werden?")
  140.  
  141.       (set #working_text "Beginne nun mit der Installation des InstallersNG von Jens Tröger")
  142.     )
  143. )
  144.  
  145. /*********************************************************************************************/
  146.  
  147. ;; (effect "center_center" "horizontal" $000000 $33FF33)
  148.  
  149. /*********************************************************************************************/
  150.  
  151. (user expert)
  152. (message #msg_welcome)
  153. (setmedia #yeah "play")
  154. (welcome)
  155.  
  156. ; -----------------------------------------------------------------------------
  157. ; the default settings
  158.  
  159. (set #default_installer "c:installer"
  160.      #default_catalog 0
  161.      #default_tools 0
  162.      #default_tooltypes 0
  163.      #default_gui 0
  164. )
  165.  
  166. ; -----------------------------------------------------------------------------
  167. ; first of all let the user make all the required settings
  168. ; for the installation
  169.  
  170. (swing
  171.  
  172.   (set @default-dest (pathonly (set #default_installer (askfile (prompt #msg_askfile_prompt)
  173.                                                                 (default #default_installer)
  174.                                                                 (help #msg_askfile_help)
  175.                                                        )
  176.                                )
  177.                      )
  178.   )
  179.  
  180.   (set #default_catalog (askoptions (prompt #msg_catalog_prompt)
  181.                                     (help #msg_catalog_help)
  182.                                     (default #default_catalog)
  183.                                     (choices (if (exists "catalogs/deutsch/installerng.catalog") "Deutsch" "")
  184.                                              (if (exists "catalogs/français/installerng.catalog") "Français" "")
  185.                                     )
  186.                         )
  187.   )
  188.  
  189.   (set #default_tools (askoptions (prompt #msg_copytools_prompt)
  190.                                   (help #msg_copytools_help)
  191.                                   (default #default_tools)
  192.                                   (choices "CloseScreenPatch" "GetSum")
  193.                       )
  194.   )
  195.  
  196.   (set #default_tooltypes (askoptions (prompt #msg_tooltypes_prompt)
  197.                                       (help #msg_tooltypes_help)
  198.                                       (default #default_tooltypes)
  199.                                       (choices "LAZYCOMPILE" "DEBUGMODE"
  200.                                                "CREATEUNSINSTALL" "COPYFILESCOMMENT"
  201.                                                "ALWAYSCONFIRM" "NOSYSDELETE"
  202.                                       )
  203.                           )
  204.   )
  205.  
  206.   (set #default_gui (askchoice (prompt #msg_askchoice_prompt)
  207.                                (help #msg_askchoice_help)
  208.                                (default #default_gui)
  209.                                (choices "BOOPSI by Savage (builtin)"
  210.                                         "MUI by Savage (BETA!)"
  211.                                )
  212.                     )
  213.   )
  214.  
  215.   (message #message_letsgo)
  216. )
  217.  
  218. ; -----------------------------------------------------------------------------
  219. ; now the installation process itself
  220.  
  221. (complete 0)
  222.  
  223. (set #installer_backup (cat #default_installer ".backup"))
  224.  
  225. (if (not (exists #installer_backup (noreq)))
  226.     (
  227.       (rename #default_installer #installer_backup (confirm average)
  228.                                                    (prompt #msg_rename_prompt)
  229.                                                    (help #msg_rename_help)
  230.       )
  231.     )
  232. ) 
  233.  
  234. (complete 15)
  235.  
  236. (copylib (prompt (#msg_copylib_prompt #default_installer))
  237.          (help #msg_copylib_help)
  238.          (confirm average)
  239.          (source (if (database "cpu" "(68000|68010)")
  240.                      ("c/installerng.000")
  241.                      ("c/installerng.020")
  242.                  )
  243.          )
  244.          (dest (pathonly #default_installer))
  245.          (newname (fileonly #default_installer))
  246.          (infos)
  247. )
  248.  
  249. (complete 30)
  250.  
  251. (copyfiles (source "tools/")
  252.            (dest "C:")
  253.            (choices (if (bitand #default_tools 1) "CloseScreenPatch")
  254.                     (if (bitand #default_tools 2) "GetSum")
  255.            )
  256. )
  257.  
  258. (complete 45)
  259.  
  260. (if (exists (tackon #default_installer ".info"))
  261.  
  262.     (tooltype (dest #default_installer)
  263.               (setstack 50000)
  264.               (if (bitand #default_tooltypes  1) (settooltype "LAZYCOMPILE" "")
  265.                                                  (settooltype "(LAZYCOMPILE)" ""))
  266.               (if (bitand #default_tooltypes  2) (settooltype "DEBUGMODE" "")
  267.                                                  (settooltype "(DEBUGMODE)" ""))
  268.               (if (bitand #default_tooltypes  4) (settooltype "CREATEUNINSTALL" "")
  269.                                                  (settooltype "(CREATEUNINSTALL)" ""))
  270.               (if (bitand #default_tooltypes  8) (settooltype "COPYFILECOMMENT" "")
  271.                                                  (settooltype "(COPYFILECOMMENT)" ""))
  272.               (if (bitand #default_tooltypes 16) (settooltype "ALWAYSCONFIRM" "")
  273.                                                  (settooltype "(ALWAYSCONFIRM)" ""))
  274.               (if (bitand #default_tooltypes 32) (settooltype "NOSYSDELETE" "")
  275.                                                  (settooltype "(NOSYSDELETE)" ""))
  276.     )
  277.  
  278.     (nop)
  279. )
  280.  
  281. (complete 60)
  282.  
  283. (if (bitand #default_catalog 1)
  284.     (copylib (source "catalogs/deutsch/installerng.catalog")
  285.              (dest "locale:catalogs/deutsch")
  286.     )
  287. )
  288.  
  289. (if (bitand #default_catalog 2)
  290.     (copylib (source "catalogs/français/installerng.catalog")
  291.              (dest "locale:catalogs/français")
  292.     )
  293. )
  294.  
  295. (complete 75)
  296.  
  297. (select #default_gui
  298.  
  299.         (nop)
  300.  
  301.         (copylib (source "libs/mui/installergui.library")
  302.                  (dest "libs:")
  303.         )
  304. )
  305.  
  306. (complete 100)
  307.  
  308. (setmedia #yeah "play")
  309. (exit (#msg_done #installer_backup))
  310.  
  311.  
  312.  
  313.